
 
 P l a y S o n g 1 
 
 ' P l a y S o n g 2 
 
 
 
 S t o p 
 
 
 
 L a b e l   P l a y S o n g 1 
 
 	 s 1   =   " D o   R e   M i   D o   P 1   D o   R e   M i   D o   P 1   " 
 
 	 s 1   =   s 1   +   " M i   F a   S o l   P 1   M i   F a   S o l   P 1   " 
 
 	 s 1   =   s 1   +   " S o l   L a   S o l   F a   M i   D o   P 1   " 
 
 	 s 1   =   s 1   +   " S o l   L a   S o l   F a   M i   D o   P 1   " 
 
 	 s 1   =   s 1   +   " R e   P 1   S o l 3   P 1   D o   P 2   " 
 
 	 s 1   =   s 1   +   " R e   P 1   S o l 3   P 1   D o   P 2   " 
 
 	 D e c o d e S o n g ( s 1 ) 
 
 R e t u r n 
 
 
 
 L a b e l   P l a y S o n g 2 
 
 	 L o a d   s 1   " H a p p y B i r t h d a y . t x t " 
 
 	 D e c o d e S o n g ( s 1 ) 
 
 R e t u r n 
 
 
 
 L a b e l   D e c o d e S o n g 
 
 	 V a r i a b l e   S t r i n g   N F 1 
 
 	 V a r i a b l e   S t r i n g   N F 2 
 
 	 V a r i a b l e   N u m e r i c   N F 3 
 
 	 F o r   N F 3   =   0   T o   G e t S e p a r a t e d S t r i n g C o u n t ( N F 1 ) 
 
 	 	 N F 2   =   G e t S e p a r a t e d S t r i n g ( N F 1 ,   N F 3 ) 
 
 	 	 S e l e c t   N F 2 
 
 	 	 	 C a s e   " S o l 3 " 
 
 	 	 	 	 P l a y N o t e ( 1 9 6 . 0 0 ) 
 
 	 	 	 	 
 
 	 	 	 C a s e   " D o " 
 
 	 	 	 	 P l a y N o t e ( 2 6 1 . 6 3 ) 
 
 	 	 	 C a s e   " D o # " 
 
 	 	 	 	 P l a y N o t e ( 2 7 7 . 1 8 ) 
 
 	 	 	 C a s e   " R e " 
 
 	 	 	 	 P l a y N o t e ( 2 9 3 . 6 6 ) 
 
 	 	 	 C a s e   " R e # " 
 
 	 	 	 	 P l a y N o t e ( 3 1 1 . 1 3 ) 
 
 	 	 	 C a s e   " M i " 
 
 	 	 	 	 P l a y N o t e ( 3 2 9 . 6 3 ) 
 
 	 	 	 C a s e   " F a " 
 
 	 	 	 	 P l a y N o t e ( 3 4 9 . 2 3 ) 
 
 	 	 	 C a s e   " F a # " 
 
 	 	 	 	 P l a y N o t e ( 3 6 9 . 9 9 ) 
 
 	 	 	 C a s e   " S o l " 
 
 	 	 	 	 P l a y N o t e ( 3 9 2 . 0 0 ) 
 
 	 	 	 C a s e   " S o l # " 
 
 	 	 	 	 P l a y N o t e ( 4 1 5 . 3 0 ) 
 
 	 	 	 C a s e   " L a " 
 
 	 	 	 	 P l a y N o t e ( 4 4 0 . 0 0 ) 
 
 	 	 	 C a s e   " L a # " 
 
 	 	 	 	 P l a y N o t e ( 4 6 6 . 1 6 ) 
 
 	 	 	 C a s e   " S i " 
 
 	 	 	 	 P l a y N o t e ( 4 9 3 . 8 8 ) 
 
 	 	 	 C a s e   " P 1 " 
 
 	 	 	 	 W a i t   S e c o n d s   0 . 1 
 
 	 	 	 C a s e   " P 2 " 
 
 	 	 	 	 W a i t   S e c o n d s   0 . 2 
 
 	 	 	 C a s e   " P 3 " 
 
 	 	 	 	 W a i t   S e c o n d s   0 . 3 
 
 	 	 E n d S e l e c t 
 
 	 N e x t 
 
 R e t u r n 
 
 
 
 L a b e l   P l a y N o t e 
 
 	 V a r i a b l e   N u m e r i c   P N 1 
 
 	 ' S l o t ( 1 )   =   P N 1 
 
 	 B e e p   P N 1   4 0 0 
 
 	 W a i t   S e c o n d s   0 . 4 
 
 R e t u r n 
 
 
 
 
 
 